#!/usr/bin/perl
use strict;
use warnings;
use autodie;

while (<>) {
	my @trans = split /,/, $_;
	# print "@trans\n";
	foreach my $tran (@trans) {
		my @col = split /\|/, $tran;
		# print "@col\n";
		my @hgvc = split /:/, $col[10];
		my @hgvp = split /:/, $col[11];
		my $out= $col[8] . ':' . $col[9] . ':' . $col[6] . '(' . $col[3] . ')' . ':' . $hgvc[1] . '(' . $hgvp[1] . ')' . '<br />';
		print $out;
	}
	print "\n";
}